home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / jockdem4.arc / IODEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  1KB  |  43 lines

  1. program IOTTT5_Demo_1;
  2.  
  3. {IMPORTANT NOTE: Set Options Compile Conditional Defines to IOFull and
  4.                  select Compile Build.
  5. }
  6.  
  7.  
  8. {$V-}  {string checking off}
  9.  
  10. uses CRT,FastTTT5, IOTTT5;
  11.  
  12. var
  13.    Name : string;
  14.    Age  : byte;
  15.    Calories  : word;
  16.  
  17.  
  18. begin
  19.     Name     := '';
  20.     Age      := 0;
  21.     Calories := 0;
  22.     Clrscr;
  23.     WriteAt(25,5,white,black,'Name:');
  24.     WriteAT(25,7,white,black,'Age:');
  25.     WriteAt(25,9,white,black,'Calories:');
  26.     WriteCenter(25,lightred,black,'Press F10 to end input');
  27.     {Now the IO specific code}
  28.     Create_Fields(3);
  29.     Add_Field(1, 3,2,3,2, 36,5);
  30.     Add_Field(2, 1,3,1,3, 36,7);
  31.     Add_Field(3, 2,1,2,1, 36,9);
  32.     String_Field(1, Name, '*************************');
  33.     Byte_Field(2, Age,'',0,125);
  34.     Word_Field(3, Calories,'####',0,8000);
  35.     Process_Input(1);
  36.     {it's all over}
  37.     Dispose_Fields;
  38.     Clrscr;
  39.     WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
  40.     WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  41.     GotoXY(1,5);
  42. end.
  43.